unit TellConfForm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Dialogs, Spin;

type
  TOKBottomDlg1 = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    SpinEdit1: TSpinEdit;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    CheckBox2: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg1: TOKBottomDlg1;

implementation

{$R *.DFM}

procedure TOKBottomDlg1.Button1Click(Sender: TObject);
begin
with OpenDialog1  do
 begin {2}
 Filter:='DataBase Of Rule file (*.dbr)|*.dbr';
 DefaultExt:='dbr';
 FileName:='';
 Options:=[ofHideReadOnly,ofFileMustExist, ofPathMustExist];
 if Execute then
  if ofExtensionDifferent in Options then
   MessageDlg('Not a file with .DBR extension!',mtError,[mbOK],0)
   else
   Edit1.text:=FileName;
 end; {2}
end;

procedure TOKBottomDlg1.Button2Click(Sender: TObject);
begin
with OpenDialog1  do
 begin {2}
 Filter:='description special terms (*.spc)|*.spc';
 DefaultExt:='spc';
 FileName:='';
 Options:=[ofHideReadOnly,ofFileMustExist, ofPathMustExist];
 if Execute then
  if ofExtensionDifferent in Options then
   MessageDlg('Not a file with .SPC extension!',mtError,[mbOK],0)
   else
   Edit2.text:=FileName;
 end; {2}
end;

procedure TOKBottomDlg1.Button3Click(Sender: TObject);
begin
with OpenDialog1  do
 begin {2}
 Filter:='sound circuit file (*.lds)|*.lds';
 DefaultExt:='lds';
 FileName:='';
 Options:=[ofHideReadOnly,ofFileMustExist, ofPathMustExist];
 if Execute then
  if ofExtensionDifferent in Options then
   MessageDlg('Not a file with .LDS extension!',mtError,[mbOK],0)
   else
   Edit3.text:=FileName;
 end; {2}
end;

end.
 